0 REM THE TRANSACTOR VOLUME 5 ISSUE 04 PAGE 46
1 REM THIS VERSION MODIFIED FROM THE LISTING PRINTED
100 REM*********************
110 REM*                   *
120 REM*    HOME BUDGET    *
130 REM*        BY         *
140 REM*    BRIAN DOBBS    *
150 REM*                   *
160 REM*  TIMMINS,ONTARIO  *
170 REM*                   *
180 REM*********************
190 POKE53280,11:POKE53281,0:DIMA$(13,13),DT$(12):PRINT""
200 FOR I=1TO12:READ DT$(I):NEXT I
210 GOTO290
220 GOSUB1420: IF KK THEN 290
230 OPEN14,8,14,"0:"+NM$+",S,R"
240 FOR X=1 TO 13
250 FOR Y=2 TO 13: INPUT#14,A$(X,Y)
260 NEXT Y,X
270 CLOSE14
280 :
290 PRINT"[147]"TAB(14)"BUDGET MENU"
300 PRINTTAB(14)"[183][183][183][183][183][183][183][183][183][183][183]"
310 PRINTTAB(10)"1[146]-WRITE MONTHLY BILLS":PRINT""
320 PRINTTAB(10)"2[146]-VIEW MONTHLY BILLS":PRINT""
330 PRINTTAB(10)"3[146]-BARCHART TREND OF BILLS":PRINT""
340 PRINTTAB(10)"4[146]-PRINTER TREND OF BILLS":PRINT""
350 PRINTTAB(10)"5[146]-SAVE DATA TO DISK":PRINT""
360 PRINTTAB(10)"6[146]-LOAD DATA FROM DISK":PRINT""
370 PRINTTAB(10)"7[146]-CREATE INITIAL FILE":PRINT""
380 PRINTTAB(10)"SELECT CHOICE (1-7)":Y=0
390 GETAN$:IFAN$=""THEN390
400 FORX=1TO7:IFAN$=MID$("1234567",X,1)THENY=X
410 NEXT:ONYGOTO550,420,660,940,1180,220,1220:GOTO290
420 PRINT"[147]":GOSUB1270
430 INPUT"ENTER MONTH TO VIEW (0=MENU)";X
440 IF X=0 THEN 290
450 X=X+1
460 PRINT"[147]"
470 FORY=2TO13:PRINT A$(1,Y):NEXT Y
480 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
490 FORY=2TO13:PRINTTAB(15)A$(X,Y):NEXTY
500 GOSUB1500
510 PRINT"MONTHLY TOTAL"TAB(14)Q+AA+BB
520 GETA$:IFA$=""THEN520
530 GOTO420
540 :
550 PRINT"[147]":GOSUB1270
560 INPUT"WHAT MONTH TO WRITE BILLS (0=MENU)";X
570 IF X=0 THEN 290
580 X=X+1:PRINT"[147]"
590 PRINTTAB(15)DT$(X-1)""
600 FOR Y=2 TO 13:PRINTA$(1,Y):NEXT Y
610 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
620 FORY=2TO13:PRINTTAB(15):INPUTA$(X,Y)
630 NEXT Y
640 GOTO 550
650 :
660 PRINT"[147]"
670 FOR P=2TO13
680 PRINT""P-1"[146])"A$(1,P)
690 NEXT P
700 INPUT"ENTER NUMBER OF DESIRED BILL";Y:Y=Y+1
710 PRINT"WHAT IS MAXIMUM SCALE FOR "A$(1,Y);:INPUT B
720 PRINT"[147]":PRINTTAB(20-(LEN(A$(1,Y))/2))A$(1,Y)
730 PRINT""B:Z=0
740 Z=Z+(B/20):IFZ=BTHEN760
750 PRINTINT(B-Z):GOTO740
760 R=1992:X=2:T=56264:U=2
770 FORE=RTOR-(40*((VAL(A$(X,Y))/(B/20))))STEP-40
780 IFE>1023ANDE<2024THENPOKEE,224
790 NEXT
800 FORF=TTOT-(40*((VAL(A$(X,Y))/(B/20))))STEP-40
810 IFF>55295ANDF<56296THENPOKEF,U
820 NEXT
830 R=R+2:X=X+1:T=T+2:U=U+1
840 IFU=3THENU=1
850 IFX=14THEN870
860 GOTO770
870 R=1992:T=56264:POKER,138:POKET,1:POKER+2,134:POKET+2,1:POKER+4,141
880 POKET+4,1:POKER+6,129:POKET+6,1:POKER+8,141:POKET+8,1:POKER+10,138
890 POKET+10,1:POKER+12,138:POKET+12,1:POKER+14,129:POKET+14,1:POKER+16,147
900 POKET+16,1:POKER+18,143:POKET+18,1:POKER+20,142:POKET+20,1:POKER+22,132
910 POKET+22,1
920 GETA$:IFA$=""THEN920
930 GOTO290
940 OPEN4,4:PRINT#4,TAB(38)"BUDGET 1984":PRINT#4:L=2:M=7
950 PRINT#4," BILL               ";
960 PRINT#4,"JANUARY   FEBUARY   MARCH     APRIL     MAY       JUNE"
970 GOSUB1060
980 L=2:M=7
990 GOSUB1100
1000 L=8:M=13:PRINT#4," BILL               ";
1010 PRINT#4,"JULY      AUGUST    SEPTEMBER OCTOBER   NOVEMBER  DECEMBER"
1020 GOSUB1060
1030 L=8:M=13
1040 GOSUB1100
1050 CLOSE4:RESTORE:GOTO290
1060 FORY=1TO13:Z=20-LEN(A$(1,Y))
1070 PRINT#4,A$(1,Y)TAB(Z);
1080 FORI=LTOM:PRINT#4,(A$(I,Y))TAB(10-LEN(A$(I,Y)));:NEXTI:PRINT#4,CHR$(10)
1090 NEXTY:PRINT#4:RETURN
1100 PRINT#4,"MONTHLY TOTAL"TAB(6)
1110 FORX=LTOM
1120 GOSUB1500
1130 C=Q+AA+BB:C$=STR$(C)
1140 PRINT#4,Q+AA+BBTAB(9-LEN(C$));:NEXTX
1150 PRINT#4,CHR$(10)
1160 RETURN
1170 :
1180 GOSUB1420: IF KK THEN 290
1190 OPEN14,8,14,"@0:"+NM$+",S,W"
1200 GOTO 1380
1210 :
1220 PRINT"[147]  A TOTAL OF 12 BILLS WILL BE ENTERED.": XX=FRE(0)
1230 FOR Y=2 TO 13
1240 PRINT"NAME OF BILL";Y-1;:INPUT A$(1,Y)
1250 NEXT Y: GOTO1320
1260 :
1270 FOR W=1TO12
1280 PRINT""W"[146])"DT$(W)
1290 NEXT W
1300 RETURN
1310 :
1320 PRINT"[147]"
1330 FOR X=2TO13:FOR Y=2TO13
1340 A$(X,Y)="0": NEXT Y,X: XX=FRE(0)
1350 GOSUB 1420 'GET FILENAME
1360 OPEN14,8,14,"0:"+NM$+",S,W"
1370 PRINT"  CREATING INITIAL FILE[146]"
1380 FOR X=1TO 12: FOR Y=2 TO 13
1390 PRINT#14,A$(X,Y): NEXT Y,X
1400 CLOSE14:GOTO290
1410 :
1420 INPUT"[147]  FILENAME[146]";NM$
1430 PRINT" PRESS 'F1[146]' TO CONTINUE"
1440 GETA$:IFA$=""THEN1440
1450 KK=(A$<>CHR$(133)):REM F1 KEY
1460 RETURN
1470 :
1480 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER
1490 DATA NOVEMBER,DECEMBER
1500 Q=(VAL(A$(X,2)))+(VAL(A$(X,3)))+(VAL(A$(X,4)))+(VAL(A$(X,5)))
1510 AA=(VAL(A$(X,6)))+(VAL(A$(X,7)))+(VAL(A$(X,8)))+(VAL(A$(X,9)))
1520 BB=(VAL(A$(X,10)))+(VAL(A$(X,11)))+(VAL(A$(X,12)))+(VAL(A$(X,13)))
1530 RETURN
1540 :
1550 FORI=1TO12
1560 PRINT""I"[146])"A$(1,I)
1570 NEXT I: RETURN